Top 10k strings from HiSoft BASIC v1.1 (1987)(HiSoft).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
3 X(I)=X(J):
2 y=sf*(x*s1+y*c1)
2 xn=x*c-y*s
2 xn=sf*(x*c1-y*s1)
2 to get descending orderchange the
2 sx=x*sc+cx
2 ;"SCORE:0"
2 ;"PREPARE TO TIME ...PRESS ANY KEY":
2 ;" ";
2 (sx-sx1),(sy-sy1)
2 "SORTED";:
2 "RANDOM";:
2 "HOW MANY DATA POINTS? "'("(5-";NMAX;")"),N
2 " ARRAY OF ";N;" ELEMENTS":
2
1 z$="ASDFGHJKLQBIOPEM"
1 with routines by Andy Pennel
1 start=23792
1 start,bytes:
1 sbytes=142
1 loc,sbytes:
1 hbc2 m.
1 hbc1
1 from Shellsort
1 from QUICKSORT
1 count=count+1
1 count;" primes"
1 bytes=11885
1 adapted from "Easy Programming for the ZX Spectrum",Ian Stewart,Robin Jones;Shiva Publishing,1982
1 _2`I`r`~`\`
1 ]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]
1 YY=YY+B(D):
1 YI=YI+B(M)
1 Y+B(D),X+A(D);
1 XX=XX+A(D)
1 XI=XI+A(M):
1 X(MID)=X(J):
1 X(I)=X(I)-160
1 X(I)=X(I)-10
1 Version 1.1 - 48k
1 Too many variable
1 This routine uses the quicksort method to sort the array X() into ascending order
1 This routine uses the Shell-Metzner method to sort thearray X() into ascending order
1 That's all there i
1 TOAD $
1 SOURCE=45000
1 SOURCE=16384
1 SOURCE+6911
1 SIEVE
1 SHELLSOR R
1 SAVE "m/c"CODE
1 RESTORE 1500
1 QUICKSOR
1 Programming
1 PUCKMAN 0
1 PIVOT=X(J):
1 PIVOT=X(J)
1 Original Release
1 OK TO DELETE BASIC? (Y/N
1 Not supporte
1 Not enough room for m/
1 Non-existent lin
1 No more spac
1 No file spac
1 N=number of entries array X() must have been DIMed
1 N=number of entries Array X() must have been DIMed
1 LOAD "m/c"CODE
1 L(SP)<R(SP)
1 Invalid compiler directiv
1 HiSoft BASIC Compiler - Side A
1 HiSoft BASIC 1.1
1 HiBasic
1 For David Batty0
1 Expecting an intege
1 Expecting a numbe
1 Exec address too hig
1 EXAMPLE6 .
1 EXAMPLE5 1
1 EXAMPLE4
1 EXAMPLE3
1 EXAMPLE2 X
1 EXAMPLE1 p
1 DO NOT TES
1 DESTINATION=DESTINATION+1
1 DESTINATION=45000
1 DESTINATION=16384
1 DESTINATION,
1 C$="MILK":
1 C$="COFFEE":
1 BEEP .01,I+J/16
1 BEEP .01,(J+32*I)/10
1 BEEP .005,10+A+B/21
1 ;P$(I,X(I)
1 ;N;" CAT";"S"
1 ;"HIGH SCORE:";HS;" by ";N$
1 ;"Compiled with NEW HiSoft BASIC";
1 ;"Compiled with NEW HiSoft BASIC"
1 ;" YOU SCORED ";S;" "
1 ;" A NEW HIGH SCORE!!! "
1 ;" Press ENTER for another game. "
1 ;" "
1 6Written by Cameron Hayne
1 2@E>a2;E2<E
1 2/E2.E2-E:8E
1 2!E2#E2"E2(E!
1 128 users should add line 3 REM : break
1 128 Users: if you add line 3 REM : break you can break out of compiled programs
1 +i,j,k,size,count,prime,f()
1 +NMAX,N,J,K,JUMP
1 +NMAX,N,I,J,MID,SP,L(),R()
1 +N,J,I,X,Y,X0,Y0
1 *l\^#V#"l\
1 *(X(I)>160
1 )="
1 (from BASIC Programs for Scientists & Engineers,Alan Miller,SYBEX 1981)
1 (from "BASIC Programs for Scientists & Engineers",AlanMiller,SYBEX 1981)
1 (YI+B(I),XI+A(I))
1 (Y+B(D),X+A(D))
1 (BASIC WAS
1 &TZXed by Andrew Barker
1 "The sum is ";N1+N2
1 "Enter your name (max 6 letters):";N$
1 "Enter the second number",N2
1 "Enter the number of your choice",N
1 "Enter the first number",N1
1 "ENTER YOUR FULL NAME",N$
1 "1 COFFEE"'"2 TEA"'"3 MILK"
1 " ");A$(J)
1 " HiSoft BASIC version 1.1 Copyright
1 work in 48k modes on 128k,+2 or +3 machines
1 of lines 9230,9241to
1 of line 9160 to
1 BYTES FOR M/C VARIABLES
1 1987 Cameron Hayne"
1 1987 Cameron Hayne
1 1986 Cameron Hayne
1 ZX PUCKMAN
1 ZX TOAD
1 HISOFT BASIC